home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / misc / volume6 / glib / part01 next >
Encoding:
Text File  |  1989-05-14  |  55.8 KB  |  1,944 lines
  1. Newsgroups: comp.sources.misc
  2. From: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  3. Subject: v06i102: glib part 1 of 15
  4. Reply-To: lee@uhccux.uhcc.Hawaii.Edu (Greg Lee )
  5.  
  6. Posting-number: Volume 6, Issue 102
  7. Submitted-by: lee@uhccux.uhcc.Hawaii.Edu (Greg Lee )
  8. Archive-name: glib/part01
  9.  
  10.  
  11. This is an alpha distribution (v. 1.6) of glib, an editor and librarian for
  12. synthesizer patches by Tim Thompson with modifications by Steve Falco,
  13. Michael Kesti, Alan Bland, Greg Lee, Scott Snyder, and Mark Rinfret.
  14.  
  15. There are 15 shar files.
  16.  
  17.         Greg Lee, lee@uhccux.uhcc.hawaii.edu, May 7, 1989
  18.  
  19. #! /bin/sh
  20. # This is a shell archive.  Remove anything before this line, then unpack
  21. # it by saving it into a file and typing "sh file".  To overwrite existing
  22. # files, type "sh file -c".  You can also feed this as standard input via
  23. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  24. # will see the following message at the end:
  25. #        "End of archive 1 (of 15)."
  26. # Contents:  AmiAztec-make MANIFEST Makefile README README.arp
  27. #   ReadMe.CZ1 amigadir.c amigadir.h amigmach.h amigmake dx100.mnu
  28. #   glib.h k1vis.h k5multi.mnu mac-glib.r mac-mach.h mac-make.uu
  29. #   mac-mdr.h mac-vt.h makevish.l patchlevel.h pc-readme pc-tcc.mak
  30. #   st-mach.h unix-mach.h vis.h
  31. # Wrapped by lee@uhccux on Sun May  7 00:40:07 1989
  32. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  33. if test -f 'AmiAztec-make' -a "${1}" != "-c" ; then 
  34.   echo shar: Will not clobber existing file \"'AmiAztec-make'\"
  35. else
  36. echo shar: Extracting \"'AmiAztec-make'\" \(1153 characters\)
  37. sed "s/^X//" >'AmiAztec-make' <<'END_OF_FILE'
  38. X# $Id: AmiAztec-make,v 1.6 89/05/06 17:13:04 lee Exp $
  39. X# Mark Rinfret
  40. X# $Log:    AmiAztec-make,v $
  41. X# Revision 1.6  89/05/06  17:13:04  lee
  42. X# rel. to comp.sources.misc
  43. X# 
  44. X#
  45. X# this makefile is for the AMIGA using Aztec C
  46. X#
  47. X
  48. X#Define the following flag if you want statistics gathering:
  49. X#STATS = -DSTATISTICS
  50. XSTATS =
  51. XSYNTHS = -DCZ1
  52. XCFLAGS = -B +L $(SYNTHS) -E200 -n $(STATS)
  53. XCC = cc
  54. X
  55. X# OBJ = machdep.o glib.o list.o dx100.o tx81z.o tx81p.o dw8000.o yama_com.o\
  56. X#       k5.o cz1.o amigadir.o
  57. X
  58. X# CZ1-only build (be sure to change list.c #defines):
  59. XOBJ = machdep.o glib.o list.o cz1.o amigadir.o
  60. X
  61. X# OBJ = machdep.o glib.o list.o k5.o
  62. X
  63. Xglib : menutoc $(OBJ)
  64. X        ln -w -g -o glib $(OBJ) -lc32
  65. X
  66. Xmachdep.h: amigmach.h
  67. X    copy amigmach.h machdep.h
  68. X
  69. Xmachdep.o: machdep.c machdep.h
  70. X
  71. Xmachdep.c: amigmach.c
  72. X    copy amigmach.c machdep.c
  73. X
  74. X# This doesn't appear to work for Aztec's make. ?
  75. X# .mnu.c:
  76. X#        @rm -f $@
  77. X#        menutoc <$*.mnu >$@
  78. X
  79. Xmenutoc:  menutoc.o
  80. X        ln -w -g -o menutoc menutoc.o -lc32
  81. X
  82. Xmenutoc.c: menutoc.l
  83. X        flex menutoc.l
  84. X        copy clone lex.yy.c menutoc.c
  85. X
  86. Xcz1.c: cz1.mnu menutoc
  87. X       menutoc <cz1.mnu >cz1.c
  88. X
  89. Xcz1.o: cz1.c
  90. X
  91. X
  92. X
  93. X
  94. END_OF_FILE
  95. if test 1153 -ne `wc -c <'AmiAztec-make'`; then
  96.     echo shar: \"'AmiAztec-make'\" unpacked with wrong size!
  97. fi
  98. # end of 'AmiAztec-make'
  99. fi
  100. if test -f 'MANIFEST' -a "${1}" != "-c" ; then 
  101.   echo shar: Will not clobber existing file \"'MANIFEST'\"
  102. else
  103. echo shar: Extracting \"'MANIFEST'\" \(3707 characters\)
  104. sed "s/^X//" >'MANIFEST' <<'END_OF_FILE'
  105. X   File Name        Archive #    Description
  106. X-----------------------------------------------------------
  107. X AmiAztec-make              1    
  108. X CHANGES                    2    note recent modifications
  109. X DX-README                  2    notes on DX7 version
  110. X MANIFEST                   1    This shipping list
  111. X Makefile                   1    for Ultrix
  112. X PORTING                    6    how to implement a version for a new synth
  113. X README                     1    
  114. X README.arp                 1    doc on Dave Weiler's arp modification
  115. X ReadMe.CZ1                 1    
  116. X amigadir.c                 1    Unix-like dir access for Amiga
  117. X amigadir.h                 1    Unix-like dir access for Amiga
  118. X amigmach.c                 7    
  119. X amigmach.h                 1    
  120. X amigmake                   1    
  121. X ctomenu.l                  2    (f)lex program partially translates old C
  122. X cz.h                       2    CZ1/CZ101 support
  123. X cz1.mnu                   12    CZ1/CZ101 support
  124. X d10pat.mnu                 4    Roland D10 "synth" module
  125. X d10rsu.mnu                 3    Roland D10 "synth" module
  126. X d10tim.mnu                 4    Roland D10 "synth" module
  127. X d10ton.c                   3    misc. Roland ton routines
  128. X d10tra.mnu                 5    Roland D10 "synth" module
  129. X d10tva.mnu                 2    Roland D10 "synth" module
  130. X d10tvf.mnu                 2    Roland D10 "synth" module
  131. X d10urp.mnu                 7    Roland D10 "synth" module
  132. X d10wfg.mnu                 2    Roland D10 "synth" module
  133. X dep5.mnu                   8    DEP5 synth module
  134. X dw8000.mnu                 5    Yamaha synth module
  135. X dx100.mnu                  1    Yamaha synth module
  136. X dx7.mnu                    9    DX7 synth module
  137. X dx7s.mnu                  10    DX7s synth module (requires dx7.mnu)
  138. X glib.1                     3    man page
  139. X glib.c                    15    the editor
  140. X glib.h                     1    shared data between editor and synth modules
  141. X glib.man                   4    preformatted man page
  142. X glibinit.dp5               4    required for DEP5
  143. X k1multi.mnu                6    K1 "synth" module for multi patches
  144. X k1single.mnu               2    K1 "synth" module for single patches
  145. X k1vis.c                    3    K1 display routines for patch edit screens
  146. X k1vis.h                    1    include for k1vis.c (made: make k1vis.h)
  147. X k5multi.mnu                1    K5 "synth" module for multi patches
  148. X k5single.mnu               5    K5 "synth" module for multi patches
  149. X list.c                     4    tells editor which synth modules to use
  150. X mac-glib.r                 1    
  151. X mac-mach.c                 3    
  152. X mac-mach.h                 1    
  153. X mac-make.uu                1    
  154. X mac-mdr.a                  8    
  155. X mac-mdr.h                  1    
  156. X mac-vt.c                   9    
  157. X mac-vt.h                   1    
  158. X makevish.l                 1    (f)lex program makes (k1)vis.h (from (k1)vis.c)
  159. X menutoc.c                 11    constructed from menutoc.l with flex
  160. X menutoc.l                  7    (f)lex program translates .menu files to C
  161. X patchlevel.h               1    record number of patches applied
  162. X pc-ints.asm                6    
  163. X pc-mach.c                  6    ibmpc
  164. X pc-mach.h                  2    ibmpc
  165. X pc-readme                  1    
  166. X pc-tcc.mak                 1    makefile for Turbo C
  167. X smp1.arc.uu               14    sample patch files
  168. X smp2.arc.uu               13    sample patch files
  169. X st-mach.c                  2    atari st
  170. X st-mach.h                  1    atari st
  171. X tx81p.mnu                  8    Yamaha synth module
  172. X tx81z.mnu                  3    Yamaha synth module
  173. X unix-mach.c                3    Unix routines (midi io routines stubbed)
  174. X unix-mach.h                1    Unix defines
  175. X vis.c                      5    D10 display routines for patch edit screens
  176. X vis.h                      1    include for vis.c (made: make vis.h)
  177. X yama_com.c                10    misc. Yamaha routines
  178. END_OF_FILE
  179. if test 3707 -ne `wc -c <'MANIFEST'`; then
  180.     echo shar: \"'MANIFEST'\" unpacked with wrong size!
  181. fi
  182. # end of 'MANIFEST'
  183. fi
  184. if test -f 'Makefile' -a "${1}" != "-c" ; then 
  185.   echo shar: Will not clobber existing file \"'Makefile'\"
  186. else
  187. echo shar: Extracting \"'Makefile'\" \(3731 characters\)
  188. sed "s/^X//" >'Makefile' <<'END_OF_FILE'
  189. X# $Id: Makefile,v 1.6 89/05/06 17:13:07 lee Exp $
  190. X# Glib, Unix version for Kawai K1, etc.
  191. X# Greg Lee, lee@uhccux.uhcc.hawaii.edu
  192. X# Feb, 1989
  193. X# adapted from Tim Thompson's program and Michael Kesti's version
  194. X# $Log:    Makefile,v $
  195. X# Revision 1.6  89/05/06  17:13:07  lee
  196. X# rel. to comp.sources.misc
  197. X# 
  198. X# 
  199. X
  200. XLEX = flex
  201. XLEXLIB =
  202. X# to use lex instead of flex:
  203. X#LEX = lex
  204. X#LEXLIB = -ll
  205. X
  206. X# defines for CFLAGS (below):
  207. X#    BSD for fopen with mode 'r'/'w' instead of 'rb'/'wb'
  208. X#    ULTRIX enables curses no()/nonl() fix
  209. X#    ARROW for use of arrow keys
  210. X#    SSS to enable speed-up code in glib.c
  211. X#
  212. X# and uncomment one set of the following for supported synths:
  213. X
  214. X# Remove '#' from next 5 lines for Roland D-10:
  215. X#SYNTHS = -DROLANDD10
  216. X#SYNTHOBJ = vis.o d10pat.o d10tim.o d10ton.o d10wfg.o d10tvf.o d10tva.o \
  217. X#    d10rsu.o d10urp.o d10tra.o
  218. X#SYNTHC = d10pat.c d10tim.c d10wfg.c d10tvf.c d10tva.c \
  219. X#    d10rsu.c d10urp.c d10tra.c # vis.h
  220. X
  221. X# Remove '#' from next 4 lines for various Yamaha, K5, etc.:
  222. X#SYNTHS = -DTX81Z -DTX81ZPERF -DDX100 -DDW8000 -DKAWAIK5 -DDEP5
  223. X#SYNTHOBJ = dx100.o tx81z.o tx81p.o dw8000.o yama_com.o \
  224. X#    k5single.o k5multi.o dep5.o
  225. X#SYNTHC = dx100.c tx81z.c tx81p.c dw8000.c k5single.c k5multi.c dep5.c
  226. X
  227. X# Remove '#' from next 3 lines for DX7:
  228. X#SYNTHS = -DDX7 -DDX7S
  229. X#SYNTHOBJ = dx7.o dx7s.o
  230. X#SYNTHC = dx7.c dx7s.c
  231. X
  232. X# Remove '#' from next 3 lines for Kawai K1:
  233. X#SYNTHS = -DKAWAIK1
  234. X#SYNTHOBJ = k1vis.o k1multi.o k1single.o
  235. X#SYNTHC = k1multi.c k1single.c # k1vis.h
  236. X
  237. X# Remove '#' from next 3 lines for CZ1:
  238. X#SYNTHS = -DCZ1
  239. X#SYNTHOBJ = cz1.o
  240. X#SYNTHC = cz1.c
  241. X
  242. XDEFNS = -DBSD -DULTRIX -DARROW -DSSS $(SYNTHS)
  243. XCFLAGS = -O $(DEFNS)
  244. X
  245. XOBJ = machdep.o glib.o list.o $(SYNTHOBJ)
  246. X
  247. XLIBS = -lcurses -ltermcap -lm
  248. X
  249. X.SUFFIXES: .mnu
  250. X
  251. Xglib : menutoc $(SYNTHC) $(OBJ)
  252. X    $(CC) -s $(OBJ) $(LIBS) -o glib
  253. X    @echo "Make complete."
  254. X
  255. Xlint: $(SYNTHC)
  256. X    @rm -f lintlog
  257. X    lint -phbv -Dlint $(DEFNS) glib.c list.c $(SYNTHC) \
  258. X        machdep.c $(LIBS)  >lintlog
  259. X# add yama_com.c above to lint dx100, etc. version
  260. X
  261. Xmachdep.c: unix-mach.c machdep.h
  262. X    rm -f machdep.c
  263. X    ln -s unix-mach.c machdep.c
  264. X
  265. Xmachdep.h: unix-mach.h
  266. X    rm -f machdep.h
  267. X    ln -s unix-mach.h machdep.h
  268. X
  269. Xmachdep.o : machdep.c glib.h /usr/include/ctype.h \
  270. X    /usr/include/curses.h /usr/include/sys/termio.h
  271. X# On the UNIX PC (at least mine), cbreak() and nocbreak() aren't in
  272. X# libcurses.a so this hack (-DFAKECBREAK) is one way out.
  273. X# On the UNIX PC, add a -DFAKECBREAK to the following line
  274. X#    cc $(CFLAGS) -c machdep.c -DFAKECBREAK
  275. X    $(CC) $(CFLAGS) -c machdep.c
  276. X
  277. X.mnu.c:
  278. X    @rm -f $@
  279. X    menutoc $*.mnu >$@
  280. X
  281. Xmenutoc:  menutoc.c
  282. X    $(CC) -s -o menutoc menutoc.c $(LEXLIB)
  283. X
  284. Xmenutoc.c: menutoc.l
  285. X    touch menutoc.c
  286. X# to revise menutoc, substitute for above:
  287. X#menutoc.c: menutoc.l
  288. X#    $(LEX) menutoc.l
  289. X#    mv lex.yy.c menutoc.c
  290. X
  291. X# to automate construction of k1vis.h:
  292. X#k1vis.h: k1vis.c makevish
  293. X#    rm -f k1vis.h
  294. X#    makevish <k1vis.c >k1vis.h
  295. X
  296. X# to automate construction of vis.h:
  297. X#vis.h:    vis.c makevish
  298. X#    rm -f vis.h
  299. X#    makevish <vis.c >vis.h
  300. X
  301. Xmakevish: makevish.l
  302. X    $(LEX) makevish.l
  303. X    $(CC) -o makevish lex.yy.c $(LEXLIB)
  304. X
  305. Xctomenu: ctomenu.l
  306. X    $(LEX) ctomenu.l
  307. X    $(CC) -o ctomenu lex.yy.c $(LEXLIB)
  308. X
  309. Xclean:
  310. X    rm -f *.o lex.yy.c $(SYNTHC) makevish \
  311. X        machdep.c machdep.h menutoc core MANIFEST.BAK *.hdr
  312. X
  313. Xshar:
  314. X    rm -f glib.shar.*
  315. X    makekit -m -nglib.shar.
  316. X
  317. Xglib.o:        glib.h
  318. Xlist.o:        glib.h
  319. Xmachdep.o:    glib.h
  320. Xyama_com.o:    glib.h
  321. Xcz1.o:        glib.h cz.h
  322. Xd10pat.o:    glib.h vis.h
  323. Xd10rsu.o:    glib.h vis.h
  324. Xd10tim.o:    glib.h vis.h
  325. Xd10ton.o:    glib.h
  326. Xd10tra.o:    glib.h vis.h
  327. Xd10tva.o:    glib.h vis.h
  328. Xd10tvf.o:    glib.h vis.h
  329. Xd10urp.o:    glib.h vis.h
  330. Xd10wfg.o:    glib.h vis.h
  331. Xdep5.o:        glib.h
  332. Xdw8000.o:    glib.h
  333. Xdx100.o:    glib.h
  334. Xdx7.o:        glib.h
  335. Xdx7s.o:        glib.h
  336. Xk1multi.o:    glib.h k1vis.h
  337. Xk1single.o:    glib.h k1vis.h
  338. Xk5multi.o:    glib.h
  339. Xk5single.o:    glib.h
  340. Xtx81p.o:    glib.h
  341. Xtx81z.o:    glib.h
  342. END_OF_FILE
  343. if test 3731 -ne `wc -c <'Makefile'`; then
  344.     echo shar: \"'Makefile'\" unpacked with wrong size!
  345. fi
  346. # end of 'Makefile'
  347. fi
  348. if test -f 'README' -a "${1}" != "-c" ; then 
  349.   echo shar: Will not clobber existing file \"'README'\"
  350. else
  351. echo shar: Extracting \"'README'\" \(2050 characters\)
  352. sed "s/^X//" >'README' <<'END_OF_FILE'
  353. X 
  354. X
  355. XThis is an alpha distribution of glib, an editor and librarian for
  356. Xsynthesizer patches by Tim Thompson with modifications by Steve Falco,
  357. XMichael Kesti, Alan Bland, Greg Lee, Scott Snyder, and Mark Rinfret.
  358. XSome of the code was originally written by Steve Frysinger (moss!spf),
  359. XJohn Helton, and James Gosling.  (I may have misattributed authorship
  360. Xof some files -- please tell me.)
  361. X
  362. XSample patch files are arc'd and uuencoded in the file samples.arc.uu.
  363. X
  364. XIt compiles and the editing and file parts work (seemingly) under Unix
  365. X(Ultrix).  Midi communications with a synth are not implemented,
  366. Xhowever.  Previous versions, including midi communication, have
  367. Xapparently worked for Ibmpc's, Atari st, Apple Macintosh, and Amiga.
  368. XThe source for these pc's is included, but I don't know whether it works
  369. Xwith this version.  At the very least, in most cases the makefiles will
  370. Xhave to be updated.  The most recently worked on pc versions are the
  371. Xones for Amiga-CZ1 and TurboC-Dx7, so they are the most likely to work
  372. Xas is.
  373. X
  374. XThe U and D commands (dump/undump midi commands to file) are implemented
  375. Xonly for the Unix version.  The relevant code in unix-mach.c would
  376. Xhave to be merged into the various ...mach.c files.
  377. X
  378. XTo compile the Unix BSD Ultrix version, first uncomment some lines in
  379. Xthe Makefile (as noted there), depending on which synths you want glib
  380. Xto handle, then type 'make'.  For other varieties of Unix, remove
  381. X'-DULTRIX' or '-DBSD' from CFLAGS in the Makefile, and hope for the
  382. Xbest.  This will probably work for the ATT 3b1.  For the various little
  383. Xpc's, consult the information in the PORTING document, in ReadMe.CZ1,
  384. Xand in DX-README (for the Dx7).  NB:  For the TURBO-C plus DX7
  385. Xversion, one must uncomment #pragma directives in two places in file
  386. Xdx7.mnu.
  387. X
  388. XFor instructions for use, see glib.man (troff source in glib.1).
  389. XFor porting to new synths, see PORTING.
  390. X
  391. XFixes, code for other pc's or synthesizers, suggestions, complaints
  392. Xcan be sent to me or posted, as you think best.
  393. X
  394. X        Greg Lee, lee@uhccux.uhcc.hawaii.edu, April 28, 1989
  395. END_OF_FILE
  396. if test 2050 -ne `wc -c <'README'`; then
  397.     echo shar: \"'README'\" unpacked with wrong size!
  398. fi
  399. # end of 'README'
  400. fi
  401. if test -f 'README.arp' -a "${1}" != "-c" ; then 
  402.   echo shar: Will not clobber existing file \"'README.arp'\"
  403. else
  404. echo shar: Extracting \"'README.arp'\" \(1469 characters\)
  405. sed "s/^X//" >'README.arp' <<'END_OF_FILE'
  406. XADDITION OF ARP FILE REQUESTER TO GLIB
  407. X
  408. XThe file machdep.c (Amiga version) has been modified to use the ARP
  409. Xfile requester if the symbol ARP is defined.
  410. X
  411. Xe.g. to compile machdep.c using Lattice 5.02 use:
  412. X    lc -cw -dARP machdep
  413. X
  414. XThe boolean variable FileRequestImminent is set to TRUE if the subroutine
  415. Xwindstr(s) is called with the first 9 characters of the string "s" equal
  416. Xto "File name"; i.e., it looks for the "File name --> " prompt.
  417. X
  418. XIf FileRequestImminent is TRUE when the subroutine windgets(s), is called,
  419. Xthen the ARP file requester is invoked and the resultant file name is
  420. Xreturned in the string s.  FileRequestImminent is set to FALSE so that
  421. Xsubsequent calls to windgets(s) do not invoke the ARP file requester,
  422. Xunless preceeded by another file name prompt.
  423. X
  424. XThe above works only if "glib.c" sticks more or less to the following
  425. Xmethod of getting the file name:
  426. X    message("File name --> ");
  427. X    windgets(fname);
  428. X
  429. XWhen linking, if ARP is defined, it is necessary to use the ARP startup
  430. Xcode "arpc.o" instead of the usual "c.o", and to include LIB:arp.lib,
  431. Xe.g.:
  432. X
  433. XFROM LIB:arpc.o+glib.o+d10pat.o+ etc.
  434. XTO glib
  435. XLIB LIB:arp.lib LIB:lc.lib LIB:amiga.lib
  436. X
  437. XIf the program is compiled to use the ARP file requester, and is then
  438. Xrun on a system which does not have "arp.library" in libs:, then it
  439. Xwill gracefully exit with an error message (as with other ARP programs).
  440. X
  441. X    Dave Weiler
  442. X    #513, 918-16 Ave NW
  443. X    CALGARY, Alberta
  444. X    Canada T2M 0K3
  445. X    (403) 295-3084
  446. X    bix: dweiler
  447. END_OF_FILE
  448. if test 1469 -ne `wc -c <'README.arp'`; then
  449.     echo shar: \"'README.arp'\" unpacked with wrong size!
  450. fi
  451. # end of 'README.arp'
  452. fi
  453. if test -f 'ReadMe.CZ1' -a "${1}" != "-c" ; then 
  454.   echo shar: Will not clobber existing file \"'ReadMe.CZ1'\"
  455. else
  456. echo shar: Extracting \"'ReadMe.CZ1'\" \(2671 characters\)
  457. sed "s/^X//" >'ReadMe.CZ1' <<'END_OF_FILE'
  458. X
  459. XAbout the CZ1 segment of GLIB:
  460. X------------------------------
  461. XMark Rinfret, 04/24/89
  462. X
  463. X
  464. XI am releasing this to the public, even though it is not finished.  I've
  465. Xdone the really hard grunt work.  Some polishing is definitely in order.
  466. X
  467. XI developed this on an Amiga 1000 using Aztec C, 3.6b. Alan Bland gets
  468. Xthe credit for the Amiga support routines.  I added in some portable
  469. Xdirectory routines that I obtained from Usenet and a couple of mods
  470. Xto amiga-mach.c and glib proper.
  471. X
  472. XThe CZ1 is a nice synth, but its MIDI encodings are a nightmare.  I
  473. Xhaven't done so much bit-diddling since I worked on military
  474. Xsystems as a civil servant! If you see code in cz1.c that appears to do
  475. Xreally strange things, that's because it does really strange things.
  476. XOne of the problems I encountered was with the Aztec compiler and
  477. Xalignment of the patch data structure.  I would like to have used a better
  478. Xdefinition of the patch structure, but the compiler insisted on inserting
  479. Xextra alignment bytes in my preferred representation.
  480. X
  481. XI've experienced timeouts when downloading bulk patch data from the
  482. Xsynth. The download sequence might get as high as say, voice 33, and
  483. Xthen time out on me.  I might have to retry a couple of times, but I
  484. Xalways eventually complete the sequence. This may be a problem isolated
  485. Xto my particular setup, but if you experience similar problems, please
  486. Xlet me know.
  487. X
  488. XYou'll notice a couple of "#ifdef undef" statements in the cz1.c module.
  489. XI was going to include settings for Glide, Portamento, etc., and then
  490. Xrealized that these are really "operational" parameters rather than
  491. Xinformation that's kept with the patch data.  There really should be
  492. Xanother segment for controlling the thousand other features of the CZ1.
  493. XI was primarily interested in using GLIB for creating/managing patches.
  494. X[These settings are now included in the menu (there is no file cz1.c
  495. Xanymore), but are not stored in the patch file.  -- gl]
  496. X
  497. XIf you peruse the source, you will find some references to the CZ-101
  498. Xin the cz.h header file.  That's a throwback to an earlier age. If
  499. Xsomeone decides to implement a CZ-101 segment, he/she should not
  500. Xtake any of the CZ-101 stuff for granted. Though the CZ-1 and CZ-101
  501. Xare of the same family, I used sysex messages not available to the
  502. XCZ-101.
  503. X
  504. XThat about wraps it.  If you have any comments/questions/suggestions/changes,
  505. Xplease get in touch with me.  You can reach me at one of the following:
  506. X
  507. X    Mark R. Rinfret
  508. X    work - 401-849-9390 (0700-1700)
  509. X    home - 401-846-7639 (1900-2200)
  510. X    Usenet - mrr@amanpt1.Newport.RI.US
  511. X             ...!rayssd!galaxia!amanpt1!mrr
  512. X
  513. X    BIX - markr (I seldom go there)
  514. X    CIS - 72017, 136 (ditto)
  515. X
  516. X
  517. END_OF_FILE
  518. if test 2671 -ne `wc -c <'ReadMe.CZ1'`; then
  519.     echo shar: \"'ReadMe.CZ1'\" unpacked with wrong size!
  520. fi
  521. # end of 'ReadMe.CZ1'
  522. fi
  523. if test -f 'amigadir.c' -a "${1}" != "-c" ; then 
  524.   echo shar: Will not clobber existing file \"'amigadir.c'\"
  525. else
  526. echo shar: Extracting \"'amigadir.c'\" \(2519 characters\)
  527. sed "s/^X//" >'amigadir.c' <<'END_OF_FILE'
  528. X/* $Id: amigadir.c,v 1.6 89/05/06 17:13:09 lee Exp $
  529. X *
  530. X * ndir - routines to simulate the 4BSD new directory code for AmigaDOS.
  531. X */
  532. X#include "dir.h"
  533. X
  534. XDIR *
  535. Xopendir(dirname) 
  536. X    char *dirname; 
  537. X{
  538. X    register DIR *my_dir, *AllocMem() ;
  539. X    struct FileLock    *Lock(), *CurrentDir() ;
  540. X
  541. X    if ((my_dir = AllocMem((long) sizeof(DIR), 0L)) == NULL) return NULL ;
  542. X
  543. X
  544. X    if (((my_dir -> d_lock = Lock(dirname, ACCESS_READ)) == NULL)
  545. X    /* If we can't examine it */
  546. X    ||  !Examine(my_dir -> d_lock, &(my_dir -> d_info))
  547. X    /* Or it's not a directory */
  548. X    ||  (my_dir -> d_info . fib_DirEntryType < 0)) {
  549. X        FreeMem(my_dir, (long) sizeof(DIR)) ;
  550. X        return NULL ;
  551. X        }
  552. X    return my_dir ;
  553. X    }
  554. X
  555. Xstruct direct *
  556. Xreaddir(my_dir) DIR *my_dir; {
  557. X    static struct direct    result ;
  558. X
  559. X    if (!ExNext(my_dir -> d_lock, &(my_dir -> d_info))) return NULL ;
  560. X
  561. X    result.d_reclen = result.d_ino = 1 ;    /* Not NULL! */
  562. X    (void) strcpy(result.d_name, my_dir -> d_info.fib_FileName) ;
  563. X    result.d_namlen = strlen(result.d_name) ;
  564. X    return &result ;
  565. X    }
  566. X
  567. Xvoid
  568. Xclosedir(my_dir) DIR *my_dir; {
  569. X
  570. X    UnLock(my_dir -> d_lock) ;
  571. X    FreeMem(my_dir, (long) sizeof(DIR)) ;
  572. X    }
  573. X/*
  574. X * telldir and seekdir don't work quite right. The problem is that you have
  575. X * to save more than a long's worth of stuff to indicate position, and it's
  576. X * socially unacceptable to alloc stuff that you don't free later under
  577. X * AmigaDOS. So we fake it - you get one level of seek, and dat's all.
  578. X * As of now, these things are untested.
  579. X */
  580. X#define DIR_SEEK_RETURN        ((long) 1)    /* Not 0! */
  581. Xlong
  582. Xtelldir(my_dir) 
  583. X    DIR *my_dir;
  584. X{
  585. X    my_dir -> d_seek = my_dir -> d_info ;
  586. X    return (long) DIR_SEEK_RETURN ;
  587. X}
  588. X
  589. Xvoid
  590. Xseekdir(my_dir, where) 
  591. X    DIR *my_dir; long where; 
  592. X{
  593. X    if (where == DIR_SEEK_RETURN)
  594. X        my_dir -> d_info = my_dir -> d_seek ;
  595. X    else    /* Makes the next readdir fail */
  596. X        setmem((char *) my_dir, sizeof(DIR), 0) ;
  597. X}
  598. X
  599. Xvoid
  600. Xrewinddir(my_dir) 
  601. X    DIR *my_dir; 
  602. X{
  603. X
  604. X    if (!Examine(my_dir -> d_lock, &(my_dir -> d_info)))
  605. X        setmem((char *) my_dir, sizeof(DIR), 0) ;
  606. X}
  607. X#ifdef    TEST
  608. X/*
  609. X * Simple code to list the files in the argument directory,
  610. X *    lifted straight from the man page.
  611. X */
  612. X#include <stdio.h>
  613. Xvoid
  614. Xmain(argc, argv) int argc; char **argv; {
  615. X    register DIR        *dirp ;
  616. X    register struct direct    *dp ;
  617. X    register char        *name ;
  618. X
  619. X    if (argc < 2) name = "" ;
  620. X    else name = argv[1] ;
  621. X
  622. X    if ((dirp = opendir(name)) == NULL) {
  623. X        fprintf(stderr, "Bogus! Can't opendir %s\n", name) ;
  624. X        exit(1) ;
  625. X        }
  626. X
  627. X    for (dp = readdir(dirp); dp != NULL; dp = readdir(dirp))
  628. X        printf("%s ", dp -> d_name) ;
  629. X    closedir(dirp);
  630. X    putchar('\n') ;
  631. X    }
  632. X#endif    TEST
  633. X
  634. END_OF_FILE
  635. if test 2519 -ne `wc -c <'amigadir.c'`; then
  636.     echo shar: \"'amigadir.c'\" unpacked with wrong size!
  637. fi
  638. # end of 'amigadir.c'
  639. fi
  640. if test -f 'amigadir.h' -a "${1}" != "-c" ; then 
  641.   echo shar: Will not clobber existing file \"'amigadir.h'\"
  642. else
  643. echo shar: Extracting \"'amigadir.h'\" \(1801 characters\)
  644. sed "s/^X//" >'amigadir.h' <<'END_OF_FILE'
  645. X/* $Id: amigadir.h,v 1.6 89/05/06 17:13:10 lee Exp $
  646. X */
  647. X#ifndef DIR_H
  648. X#define DIR_H
  649. X
  650. X#ifndef    EXEC_TYPES_H
  651. X#include "exec/types.h"
  652. X#endif
  653. X
  654. X#ifndef    LIBRARIES_DOS_H
  655. X#include "libraries/dos.h"
  656. X#endif
  657. X
  658. X#ifndef    LIBRARIES_DOSEXTENS_H
  659. X#include "libraries/dosextens.h"
  660. X#endif
  661. X/*
  662. X * MAXNAMELEN is the maximum length a file name can be. The direct structure
  663. X * is lifted form 4BSD, and has not been changed so that code which uses
  664. X * it will be compatable with 4BSD code. d_ino and d_reclen are unused,
  665. X * and will probably be set to some non-zero value.
  666. X */
  667. X#define    MAXNAMLEN    31        /* AmigaDOS file max length */
  668. X
  669. Xstruct    direct {
  670. X    ULONG    d_ino ;            /* unused - there for compatability */
  671. X    USHORT    d_reclen ;        /* ditto */
  672. X    USHORT    d_namlen ;        /* length of string in d_name */
  673. X    char    d_name[MAXNAMLEN + 1] ;    /* name must be no longer than this */
  674. X};
  675. X/*
  676. X * The DIRSIZ macro gives the minimum record length which will hold
  677. X * the directory entry.  This requires the amount of space in struct direct
  678. X * without the d_name field, plus enough space for the name with a terminating
  679. X * null byte (dp->d_namlen+1), rounded up to a 4 byte boundary.
  680. X */
  681. X
  682. X#undef DIRSIZ
  683. X#define DIRSIZ(dp) \
  684. X    ((sizeof(struct direct) - (MAXNAMLEN+1)) + (((dp) -> d_namlen+1 + 3) &~ 3))
  685. X/*
  686. X * The DIR structure holds the things that AmigaDOS needs to know about
  687. X * a file to keep track of where it is and what it's doing.
  688. X */
  689. X
  690. Xtypedef struct {
  691. X    struct FileInfoBlock    d_info ,    /* Default info block */
  692. X                d_seek ;    /* Info block for seeks */
  693. X    struct FileLock        *d_lock ;    /* Lock on directory */
  694. X    } DIR ;
  695. X    
  696. Xextern    DIR *opendir(/* char * */); 
  697. Xextern    struct direct *readdir(/* DIR * */) ;
  698. Xextern    long telldir(/* DIR * */) ;
  699. Xextern    void seekdir(/* DIR *, long */) ;
  700. Xextern    void rewinddir(/* DIR * */) ;
  701. Xextern    void closedir(/* DIR * */) ;
  702. X#endif    DIR_H
  703. END_OF_FILE
  704. if test 1801 -ne `wc -c <'amigadir.h'`; then
  705.     echo shar: \"'amigadir.h'\" unpacked with wrong size!
  706. fi
  707. # end of 'amigadir.h'
  708. fi
  709. if test -f 'amigmach.h' -a "${1}" != "-c" ; then 
  710.   echo shar: Will not clobber existing file \"'amigmach.h'\"
  711. else
  712. echo shar: Extracting \"'amigmach.h'\" \(358 characters\)
  713. sed "s/^X//" >'amigmach.h' <<'END_OF_FILE'
  714. X/* $Id: amigmach.h,v 1.6 89/05/06 17:13:11 lee Exp $
  715. X *
  716. X * GLIB - a Generic LIBrarian and editor for synths
  717. X *
  718. X * Machine dependent stuff.
  719. X *
  720. X * Amiga version
  721. X * Alan Bland
  722. X * $Log:    amigmach.h,v $
  723. X * Revision 1.6  89/05/06  17:13:11  lee
  724. X * rel. to comp.sources.misc
  725. X * 
  726. X */
  727. X
  728. X#include <string.h>
  729. X
  730. X#define INT16 int
  731. X
  732. X#define STATMIDI    statmidi()
  733. X#define AMIGA
  734. END_OF_FILE
  735. if test 358 -ne `wc -c <'amigmach.h'`; then
  736.     echo shar: \"'amigmach.h'\" unpacked with wrong size!
  737. fi
  738. # end of 'amigmach.h'
  739. fi
  740. if test -f 'amigmake' -a "${1}" != "-c" ; then 
  741.   echo shar: Will not clobber existing file \"'amigmake'\"
  742. else
  743. echo shar: Extracting \"'amigmake'\" \(477 characters\)
  744. sed "s/^X//" >'amigmake' <<'END_OF_FILE'
  745. X# $Id: amigmake,v 1.6 89/05/06 17:13:11 lee Exp $
  746. X# Alan Bland
  747. X# $Log:    amigmake,v $
  748. X# Revision 1.6  89/05/06  17:13:11  lee
  749. X# rel. to comp.sources.misc
  750. X# 
  751. X# 
  752. X# this makefile is for the AMIGA using the LMK utility and Lattice 5.02
  753. X#
  754. X
  755. XOBJ = machdep.o glib.o list.o dx100.o tx81z.o tx81p.o dw8000.o yama_com.o k5.o
  756. X# OBJ = machdep.o glib.o list.o k5.o
  757. X
  758. X.c.o :
  759. X    lc:lc -cw -cs -v $*
  760. X
  761. Xglib : $(OBJ)
  762. X    lc:blink from lib:c.o $(OBJ) lib lib:lc.lib lib:amiga.lib \
  763. X    batch nodebug to glib
  764. END_OF_FILE
  765. if test 477 -ne `wc -c <'amigmake'`; then
  766.     echo shar: \"'amigmake'\" unpacked with wrong size!
  767. fi
  768. # end of 'amigmake'
  769. fi
  770. if test -f 'dx100.mnu' -a "${1}" != "-c" ; then 
  771.   echo shar: Will not clobber existing file \"'dx100.mnu'\"
  772. else
  773. echo shar: Extracting \"'dx100.mnu'\" \(4111 characters\)
  774. sed "s/^X//" >'dx100.mnu' <<'END_OF_FILE'
  775. X/* $Id: dx100.mnu,v 1.6 89/05/06 17:13:22 lee Exp $
  776. X * GLIB - a Generic LIBrarian and editor for synths
  777. X *
  778. X * DX-100 routines
  779. X * Tim Thompson
  780. X * modifications: Greg Lee
  781. X * $Log:    dx100.mnu,v $
  782. X * Revision 1.6  89/05/06  17:13:22  lee
  783. X * rel. to comp.sources.misc
  784. X * 
  785. X */
  786. X
  787. X#define OVERLAY1
  788. X
  789. X#include "glib.h"
  790. X#include <ctype.h>
  791. X
  792. Xchar *visnum(), *visonoff(), *vism3num(), *viswave(), *vismono();
  793. Xchar *visfreq(), *visdx1a();
  794. X
  795. X#define RESERVESIZE 0
  796. X
  797. X/* This array contains arbitrary screen labels */
  798. Xstruct labelinfo Ldx100[] = {
  799. X#MENU
  800. X
  801. X                                                 Algorithm   %
  802. X                                                 =========
  803. X
  804. X           Dcy Lev Dcy              De  Out     Amp Eg  Key Key
  805. X OP    Atk  1   1   2  Rls   Freq   tun Lvl Vel Mod Bia Rat Scl
  806. X --    --- --- --- --- ---   ----   --- --- --- --- --- --- ---
  807. X 1      %   %   %   %   %    %       %   %   %  %    %   %   %
  808. X 2      %   %   %   %   %    %       %   %   %  %    %   %   %
  809. X 3      %   %   %   %   %    %       %   %   %  %    %   %   %
  810. X 4      %   %   %   %   %    %       %   %   %  %    %   %   %
  811. X
  812. X                                 Feedback    %         Mono/Poly          %
  813. X-------------------------+       Transpose   %         Amp Mod Depth      %
  814. XN = set name  q = quit   |       LFO Speed   %         Amp Mod Sense      %
  815. Xh = left      l = right  |       LFO Delay   %         Pitch Mod Depth    %
  816. Xk = up        j = down   |       LFO Wave    %         Pitch Mod Sense    %
  817. XK = incr      J = decr   |       LFO Sync    %         Mod Pitch Range    %
  818. Xspace = play auto-note   |       Pitch Bend  %         Mod Amp Range      %
  819. X                         |       Port. Time  %         Breath Pitch       %
  820. XAuto-Note:               |       Port. Mode  %         Breath Amp         %
  821. X   Pitch %    Vol  %     |       Port. Foot  %         Breath Pitch Bias  %
  822. X   Dur   %    Chan %     |       Sus. Foot   %         Breath EG Bias     %
  823. X                         |
  824. X#END
  825. X-1,-1,NULL
  826. X};
  827. X
  828. Xstruct paraminfo  Pdx100[] =  {
  829. X/*
  830. XNAME        TYPE    POS    MAX    OFFSET    MASK    SHIFT    ADHOC
  831. X */
  832. X#O algorithm    dx1a    %%    7    0
  833. X#O op1attack    num    %%    31    0
  834. X#O op1decay1    num    %%    31    0
  835. X#O op1level1    num    %%    15    0
  836. X#O op1decay2    num    %%    31    0
  837. X#O op1release    num    %%    31    0
  838. X#O op1freq    freq    %%    63    0
  839. X#O op1detune    m3num    %%    6    0
  840. X#O op1outlevel    num    %%    99    0
  841. X#O op1velocity    num    %%    7    0
  842. X#O op1ampmod    onoff    %%    1    0
  843. X#O op1egbias    num    %%    7    0
  844. X#O op1keyrate    num    %%    3    0
  845. X#O op1keyscale    num    %%    99    0
  846. X#O op2attack    num    %%    31    0
  847. X#O op2decay1    num    %%    31    0
  848. X#O op2level1    num    %%    15    0
  849. X#O op2decay2    num    %%    31    0
  850. X#O op2release    num    %%    31    0
  851. X#O op2freq    freq    %%    63    0
  852. X#O op2detune    m3num    %%    6    0
  853. X#O op2outlevel    num    %%    99    0
  854. X#O op2velocity    num    %%    7    0
  855. X#O op2ampmod    onoff    %%    1    0
  856. X#O op2egbias    num    %%    7    0
  857. X#O op2keyrate    num    %%    3    0
  858. X#O op2keyscale    num    %%    99    0
  859. X#O op3attack    num    %%    31    0
  860. X#O op3decay1    num    %%    31    0
  861. X#O op3level1    num    %%    15    0
  862. X#O op3decay2    num    %%    31    0
  863. X#O op3release    num    %%    31    0
  864. X#O op3freq    freq    %%    63    0
  865. X#O op3detune    m3num    %%    6    0
  866. X#O op3outlevel    num    %%    99    0
  867. X#O op3velocity    num    %%    7    0
  868. X#O op3ampmod    onoff    %%    1    0
  869. X#O op3egbias    num    %%    7    0
  870. X#O op3keyrate    num    %%    3    0
  871. X#O op3keyscale    num    %%    99    0
  872. X#O op4attack    num    %%    31    0
  873. X#O op4decay1    num    %%    31    0
  874. X#O op4level1    num    %%    15    0
  875. X#O op4decay2    num    %%    31    0
  876. X#O op4release    num    %%    31    0
  877. X#O op4freq    freq    %%    63    0
  878. X#O op4detune    m3num    %%    6    0
  879. X#O op4outlevel    num    %%    99    0
  880. X#O op4velocity    num    %%    7    0
  881. X#O op4ampmod    onoff    %%    1    0
  882. X#O op4egbias    num    %%    7    0
  883. X#O op4keyrate    num    %%    3    0
  884. X#O op4keyscale    num    %%    99    0
  885. X#O feedback    num    %%    7    0
  886. X#O playmode    mono    %%    1    0
  887. X#O transpose    num    %%    45    0
  888. X#O amoddepth    num    %%    99    0
  889. X#O lfospeed    num    %%    99    0
  890. X#O amodsens    num    %%    3    0
  891. X#O lfodelay    num    %%    99    0
  892. X#O pmoddepth    num    %%    99    0
  893. X#O lfowave    wave    %%    3    0
  894. X#O pmodsens    num    %%    7    0
  895. X#O lfosync    onoff    %%    1    0
  896. X#O modprange    num    %%    99    0
  897. X#O pitchbend    num    %%    12    0
  898. X#O modarange    num    %%    99    0
  899. X#O portatime    num    %%    99    0
  900. X#O breathprange    num    %%    99    0
  901. X#O portmode    num    %%    1    0
  902. X#O breatharange    num    %%    99    0
  903. X#O autovol    num    %%    127    -63
  904. X#O autopitch    num    %%    127    -60
  905. X#O portfoot    onoff    %%    1    0
  906. X#O breathpbias    num    %%    99    0
  907. X#O autochan    num    %%    16    -1    *5
  908. X#O autodur    num    %%    20    -5    *5
  909. X#O susfoot    onoff    %%    1    0
  910. X#O breathegbias    num    %%    99    0
  911. XNULL,NULL,-1,-1,-1,-1,visnum,0,0,0,0
  912. X};
  913. X
  914. END_OF_FILE
  915. if test 4111 -ne `wc -c <'dx100.mnu'`; then
  916.     echo shar: \"'dx100.mnu'\" unpacked with wrong size!
  917. fi
  918. # end of 'dx100.mnu'
  919. fi
  920. if test -f 'glib.h' -a "${1}" != "-c" ; then 
  921.   echo shar: Will not clobber existing file \"'glib.h'\"
  922. else
  923. echo shar: Extracting \"'glib.h'\" \(3792 characters\)
  924. sed "s/^X//" >'glib.h' <<'END_OF_FILE'
  925. X/* $Id: glib.h,v 1.6 89/05/06 17:13:25 lee Exp $
  926. X *
  927. X * GLIB - a Generic LIBrarian and editor for synths
  928. X * Tim Thompson
  929. X * modifications: Kesti, Lee
  930. X * $Log:    glib.h,v $
  931. X * Revision 1.6  89/05/06  17:13:25  lee
  932. X * rel. to comp.sources.misc
  933. X * 
  934. X */
  935. X
  936. X#include <stdio.h>
  937. X#include "machdep.h"
  938. X
  939. X#define EOX 0xf7
  940. X#define MOUSE -2
  941. X
  942. X#ifndef BUFSIZ
  943. X#define BUFSIZ 512
  944. X#endif
  945. X
  946. X/* If a machine needs to do something special to read/write a binary file, */
  947. X/* this is a hook that a machdep.h can override to do what it  needs to. */
  948. X/* For example, see the Atari ST version  of machdep.h */
  949. X#ifndef OPENBINFILE
  950. X#define OPENBINFILE(f,file,mode) f=fopen(file,mode)
  951. X#endif
  952. X
  953. X
  954. X#ifndef OPENTEXTFILE
  955. X#define OPENTEXTFILE(f,name,mode) f=fopen(name,mode)
  956. X#endif
  957. X
  958. X/* Seconds before we give up trying to read something */
  959. X#define TIMEOUT 5
  960. X
  961. X#define NUMONSCREEN 12
  962. X/* position of first voice row */
  963. X#define FIRSTROW 10
  964. X#define LEFTSIDE 2
  965. X#define RIGHTSIDE 55
  966. X#define YANKROW 12
  967. X#define YANKCOL 31
  968. X#define LIBBANKS 3
  969. X#define NOREDRAW 0
  970. X#define REDRAW 1
  971. X
  972. X#define ctl(x) (x&037)
  973. X
  974. X#define CH_REDRAW '\014'
  975. X
  976. X#define CH_INC 'K'
  977. X#define CH_INC2 'I'
  978. X#define CH_INC3 '>'
  979. X#define CH_DEC 'J'
  980. X#define CH_DEC2 'M'
  981. X#define CH_DEC3 '<'
  982. X#define CH_SAME 'S'
  983. X
  984. X#define CH_LEFT 'h'
  985. X#define CH_DOWN 'j'
  986. X#define CH_UP 'k'
  987. X#define CH_RIGHT 'l'
  988. X/* for arrow key support to work, next 4 defines
  989. X * can't be changed (unless code in unix-mach.c is modified)
  990. X */
  991. X#define ALTCH_LEFT ctl('b')
  992. X#define ALTCH_DOWN ctl('n')
  993. X#define ALTCH_UP ctl('p')
  994. X#define ALTCH_RIGHT ctl('f')
  995. X
  996. X#define SCR_DOWN '\04'
  997. X#define SCR_UP '\025'
  998. X
  999. X#define STR_LEFT "h"
  1000. X#define STR_DOWN "j"
  1001. X#define STR_UP "k"
  1002. X#define STR_RIGHT "l"
  1003. X
  1004. X#define VOICEBYTE(d,v,n) (*((d)+(v)*Voicesize+(n)))
  1005. X
  1006. Xstruct paraminfo {
  1007. X    char *p_name;
  1008. X    char *p_label;
  1009. X    INT16 p_lrow;    /* position for printing name */
  1010. X    INT16 p_lcol;
  1011. X    INT16 p_vrow;        /* position for printing value */
  1012. X    INT16 p_vcol;
  1013. X    char *((*p_tovis)());
  1014. X    INT16 p_min;
  1015. X    INT16 p_max;
  1016. X    INT16 p_val;
  1017. X    INT16 p_flags;
  1018. X};
  1019. X
  1020. Xstruct labelinfo {
  1021. X    INT16 l_row;
  1022. X    INT16 l_col;
  1023. X    char *l_text;
  1024. X};
  1025. X
  1026. Xstruct editinfo {
  1027. X    char *ed_name;        /* Synth name */
  1028. X    struct paraminfo *ed_params;    /* list of parameters */
  1029. X    struct labelinfo *ed_labels;    /* screen labels in edit mode */
  1030. X    INT16 ed_nvoices;        /* number of voices */
  1031. X    INT16 ed_vsize;        /* size of each voice data, in bytes */
  1032. X    INT16 ed_nsize;        /* name size */
  1033. X    int ed_dataid;        /* data ID */
  1034. X    int (*ed_din)();    /* copy voice data into paraminfo array */
  1035. X    int (*ed_dout)();    /* copy voice data out of paraminfo array */
  1036. X    int (*ed_sedit)();    /* send 1 voice to synth edit buffer */
  1037. X    int (*ed_sone)();    /* send 1 voice to a synth (permanent) patch*/
  1038. X    int (*ed_sbulk)();    /* send bulk voice data */
  1039. X    int (*ed_gbulk)();    /* get bulk voice data */
  1040. X    char *(*ed_nof)();    /* get name of a voice out of data */
  1041. X    int (*ed_snof)();    /* set name of a voice in data */
  1042. X    char *(*ed_numof)();    /* convert voice number to on-screen text */
  1043. X    int (*ed_cvtnum)();    /* convert visable voice number to std. format */
  1044. X    int (*ed_cvtanum)();    /* convert alphanumeric voice number to std. format */
  1045. X};
  1046. X
  1047. Xstruct peredinfo {
  1048. X    char *ed_libdata;    /* memory for library banks */
  1049. X    char *ed_syndata;    /* memory for synth bank */
  1050. X    char *ed_yankdata;    /* memory for yank buffer */
  1051. X    INT16 ed_libindex;    /* voice number of topmost displayed lib voice*/
  1052. X    INT16 ed_synindex;    /* ditto for synth side */
  1053. X    INT16 ed_channel;        /* MIDI channel # */
  1054. X    INT16 ed_erow;
  1055. X    INT16 ed_ecol;
  1056. X};
  1057. X
  1058. Xextern struct paraminfo *P;
  1059. Xextern struct labelinfo *L;
  1060. Xextern struct editinfo E[];
  1061. Xextern int Rows, Cols, Channel, Nvoices, Voicesize, Redraw, DataID;
  1062. Xextern char *Reason, *Synthname;
  1063. X
  1064. Xchar *bankvoice();
  1065. Xvoid setval();
  1066. Xint getval();
  1067. Xchar *malloc(), *alloc(), *nextls();
  1068. XFILE *fopen();
  1069. Xchar *strcat(), *strcpy();
  1070. Xlong milliclock();
  1071. X
  1072. Xextern int synthinfileflag;
  1073. Xextern int synthoutfileflag;
  1074. END_OF_FILE
  1075. if test 3792 -ne `wc -c <'glib.h'`; then
  1076.     echo shar: \"'glib.h'\" unpacked with wrong size!
  1077. fi
  1078. # end of 'glib.h'
  1079. fi
  1080. if test -f 'k1vis.h' -a "${1}" != "-c" ; then 
  1081.   echo shar: Will not clobber existing file \"'k1vis.h'\"
  1082. else
  1083. echo shar: Extracting \"'k1vis.h'\" \(511 characters\)
  1084. sed "s/^X//" >'k1vis.h' <<'END_OF_FILE'
  1085. Xchar *visnum();
  1086. Xchar *vispnum();
  1087. Xchar *vispan();
  1088. Xchar *vispoly();
  1089. Xchar *visvelosw();
  1090. Xchar *vismode();
  1091. Xchar *vistwofour();
  1092. Xchar *vismute();
  1093. Xchar *vispolym();
  1094. Xchar *visvbwh();
  1095. Xchar *viscrv();
  1096. Xchar *viskeyshift();
  1097. Xchar *visfinetune();
  1098. Xchar *viscpitch();
  1099. Xchar *vislpitch();
  1100. Xchar *visonoff();
  1101. Xchar *visonoffk1();
  1102. Xchar *visonoffk2();
  1103. Xchar *visonoffk3();
  1104. Xchar *visonoffk4();
  1105. Xchar *viscsfnk1();
  1106. Xchar *viscsfnk2();
  1107. Xchar *viscsfnk3();
  1108. Xchar *viscsfnk4();
  1109. Xchar *visam1();
  1110. Xchar *visam3();
  1111. Xchar *visifosh();
  1112. Xchar *viswave();
  1113. END_OF_FILE
  1114. if test 511 -ne `wc -c <'k1vis.h'`; then
  1115.     echo shar: \"'k1vis.h'\" unpacked with wrong size!
  1116. fi
  1117. # end of 'k1vis.h'
  1118. fi
  1119. if test -f 'k5multi.mnu' -a "${1}" != "-c" ; then 
  1120.   echo shar: Will not clobber existing file \"'k5multi.mnu'\"
  1121. else
  1122. echo shar: Extracting \"'k5multi.mnu'\" \(1511 characters\)
  1123. sed "s/^X//" >'k5multi.mnu' <<'END_OF_FILE'
  1124. X/* $Id: k5multi.mnu,v 1.6 89/05/06 17:13:29 lee Exp $
  1125. X * GLIB - a Generic LIBrarian and editor for synths
  1126. X *
  1127. X * Kawai K-5 Librarian - handles (SINGLE and) MULTI patches.
  1128. X * Functions are annotated if they work for SINGLE, MULTI, or both kinds.
  1129. X * Full editing not implemented - there are zillions of parameters,
  1130. X * and the huge LCD on the K-5 is actually quite easy to read and use.
  1131. X *
  1132. X * Alan Bland - att!druwy!mab
  1133. X * $Log:    k5multi.mnu,v $
  1134. X * Revision 1.6  89/05/06  17:13:29  lee
  1135. X * rel. to comp.sources.misc
  1136. X * 
  1137. X */
  1138. X
  1139. X#define OVERLAY2
  1140. X
  1141. X#include "glib.h"
  1142. X
  1143. X#define K5SINGLE    0
  1144. X#define K5MULTI        1
  1145. X#define K5MAGIC        0x5a3c
  1146. X
  1147. X#define NERRS        5
  1148. X#define RESERVESIZE    0
  1149. X
  1150. Xextern char *visnum();
  1151. X
  1152. X
  1153. X/* This array contains arbitrary screen labels (MULTI) */
  1154. Xstruct labelinfo Lk5m[] = {
  1155. X#MENU
  1156. X
  1157. X
  1158. X
  1159. X          Sorry, no edit capability implemented for the K-5 yet.
  1160. X
  1161. X
  1162. X
  1163. X
  1164. X
  1165. X
  1166. X
  1167. X
  1168. X
  1169. X
  1170. X
  1171. X  +-------------------------+--------------+
  1172. X  |Space = Play Note        | Auto-Note    |
  1173. X  |                         |              |
  1174. X  |h = left   q = quit      |Pitch    %    |
  1175. X  |j = down   N = Set Name  |Volume   %    |
  1176. X  |k = up     J = Decrement |Duration %    |
  1177. X  |l = right  K = Increment |Channel  %    |
  1178. X  |                         |              |
  1179. X  +-------------------------+--------------+
  1180. X#END
  1181. X-1,-1,NULL
  1182. X};
  1183. X
  1184. Xstruct paraminfo  Pk5m[] =  {
  1185. X/*
  1186. XNAME        TYPE    POS    MAX    OFFSET    MASK    SHIFT    ADHOC
  1187. X */
  1188. X#O autopitch    num    %%    127    -60
  1189. X#O autovol    num    %%    127    -63
  1190. X#O autodur    num    %%    20    -5    *5
  1191. X#O autochan    num    %%    16    -1    *5
  1192. XNULL,NULL,-1,-1,-1,-1,visnum,0,0,0,0
  1193. X};
  1194. X
  1195. END_OF_FILE
  1196. if test 1511 -ne `wc -c <'k5multi.mnu'`; then
  1197.     echo shar: \"'k5multi.mnu'\" unpacked with wrong size!
  1198. fi
  1199. # end of 'k5multi.mnu'
  1200. fi
  1201. if test -f 'mac-glib.r' -a "${1}" != "-c" ; then 
  1202.   echo shar: Will not clobber existing file \"'mac-glib.r'\"
  1203. else
  1204. echo shar: Extracting \"'mac-glib.r'\" \(4012 characters\)
  1205. sed "s/^X//" >'mac-glib.r' <<'END_OF_FILE'
  1206. X/* $Id: mac-glib.r,v 1.6 89/05/06 17:13:31 lee Exp $
  1207. X * glib.r - glib resources
  1208. X *
  1209. X * SAF 3/7/88 (Steven Falco)
  1210. X * $Log:    mac-glib.r,v $
  1211. X * Revision 1.6  89/05/06  17:13:31  lee
  1212. X * rel. to comp.sources.misc
  1213. X * 
  1214. X */
  1215. X
  1216. X#include "Types.r"
  1217. X
  1218. X/* These define's are used in the MENU resources to disable specific
  1219. X   menu items. */
  1220. X#define AllItems    0b1111111111111111111111111111111    /* 31 flags */
  1221. X#define MenuItem1    0b00001
  1222. X#define MenuItem2    0b00010
  1223. X#define MenuItem3    0b00100
  1224. X#define MenuItem4    0b01000
  1225. X#define MenuItem5    0b10000
  1226. X
  1227. Xtype 'GLIB' as 'STR ';
  1228. X
  1229. Xresource 'GLIB' (0) {
  1230. X    "GLib Version 1.0";
  1231. X};
  1232. X
  1233. Xresource 'BNDL' (128) {
  1234. X    'GLIB',                /* our signature */
  1235. X    0,
  1236. X    {
  1237. X        'ICN#',
  1238. X        {
  1239. X            0, 128;        /* glib's icon */
  1240. X            1, 129        /* dumps' icon */
  1241. X        };
  1242. X        'FREF',
  1243. X        {
  1244. X            0, 128;        /* glib's type */
  1245. X            1, 129        /* dumps' type */
  1246. X        }
  1247. X    }
  1248. X};
  1249. X
  1250. Xresource 'ICN#' (128) {
  1251. X    {    /* array: 2 elements */
  1252. X        /* [1] */
  1253. X        $"0000 0000 0000 0000 0000 0000 003F 8000"
  1254. X        $"007F C000 00E0 E000 0180 3000 0180 1800"
  1255. X        $"0398 CC00 0700 0E00 0707 0E00 0710 4E00"
  1256. X        $"0388 8C00 11C7 1800 18F0 3000 1C3F E000"
  1257. X        $"0E0F C000 0706 0000 03FF FF00 01FF FF80"
  1258. X        $"0006 0180 0006 0180 0006 0000 001F F000"
  1259. X        $"003F F800 0070 1C00 00E0 0C00 00C0 0C00"
  1260. X        $"00C0 0C00 00F0 0F00 00F0 0F00 0000 0000",
  1261. X        /* [2] */
  1262. X        $"0000 0000 007F C000 00FF E000 01FF F000"
  1263. X        $"03FF F800 07FF FC00 0FFF FE00 1FFF FF00"
  1264. X        $"3FFF FF80 7FFF FF80 7FFF FF80 7FFF FF80"
  1265. X        $"7FFF FF80 7FFF FF80 7FFF FF80 7FFF FFC0"
  1266. X        $"7FFF FFE0 7FFF FFE0 3FFF FFE0 1FFF FFE0"
  1267. X        $"0FFF FFE0 07FF FFE0 03FF FFE0 03FF FFE0"
  1268. X        $"03FF FFE0 03FF FFE0 03FF FFE0 03FF FFE0"
  1269. X        $"03FF FFE0 03FF FFE0 03FF FFE0 03FF FFE0"
  1270. X    }
  1271. X};
  1272. X
  1273. Xresource 'ICN#' (129) {
  1274. X    {    /* array: 2 elements */
  1275. X        /* [1] */
  1276. X        $"0000 0000 0000 0000 0000 0000 0000 0000"
  1277. X        $"0000 0000 0003 F000 0043 FFC0 0063 0FC0"
  1278. X        $"01F3 0000 01FB 0000 01F3 F000 0063 FFC0"
  1279. X        $"0043 0FC0 0003 0000 0003 0000 0003 0000"
  1280. X        $"0003 0400 0003 0C00 007B 1FC0 00FF 3FC0"
  1281. X        $"01FF 1FC0 01FF 0C00 01FF 0400 00FE 0000"
  1282. X        $"007C 0000 0000 0000 0000 0000 0000 0000"
  1283. X        $"0000 0000 0000 0000 0000 0000 0000 0000",
  1284. X        /* [2] */
  1285. X        $"0000 0000 0000 0000 0000 0000 0000 0000"
  1286. X        $"03FF FFE0 03FF FFE0 03FF FFE0 03FF FFE0"
  1287. X        $"03FF FFE0 03FF FFE0 03FF FFE0 03FF FFE0"
  1288. X        $"03FF FFE0 03FF FFE0 03FF FFE0 03FF FFE0"
  1289. X        $"03FF FFE0 03FF FFE0 03FF FFE0 03FF FFE0"
  1290. X        $"03FF FFE0 03FF FFE0 03FF FFE0 03FF FFE0"
  1291. X        $"03FF FFE0 03FF FFE0 0000 0000 0000 0000"
  1292. X        $"0000 0000 0000 0000 0000 0000 0000 0000"
  1293. X    }
  1294. X};
  1295. X
  1296. Xresource 'FREF' (128) {
  1297. X    'APPL', 0, ""
  1298. X};
  1299. X
  1300. Xresource 'FREF' (129) {
  1301. X    'TEXT', 1, ""
  1302. X};
  1303. X
  1304. Xresource 'DLOG' (128, "About GLibI") {
  1305. X    {66, 102, 224, 400},
  1306. X    dBoxProc, visible, noGoAway, 0x0, 128, ""
  1307. X};
  1308. X
  1309. Xresource 'DITL' (128) {
  1310. X     {
  1311. X/* 1 */ {130, 205, 150, 284},
  1312. X        button {
  1313. X            enabled,
  1314. X            "Continue"
  1315. X        };
  1316. X/* 2 */ {94, 28, 115, 301},                /* memory amount */
  1317. X        staticText {
  1318. X            disabled,
  1319. X            ""
  1320. X        };
  1321. X/* 3 */ {8, 14, 27, 169},
  1322. X        staticText {
  1323. X            disabled,
  1324. X            "GLib Version 1.0"
  1325. X        };
  1326. X/* 4 */ {32, 29, 50, 195},
  1327. X        staticText {
  1328. X            disabled,
  1329. X            "Author: Tim Thompson"
  1330. X        };
  1331. X/* 5 */ {55, 28, 73, 299},
  1332. X        staticText {
  1333. X            disabled, "Macintosh conversion: Steven A. Falco"
  1334. X        }
  1335. X    }
  1336. X};
  1337. X
  1338. Xresource 'MENU' (128, "Apple", preload) {
  1339. X    128, textMenuProc,
  1340. X    AllItems & ~MenuItem2,    /* Disable item #2 */
  1341. X    enabled, apple,
  1342. X    {
  1343. X        "About GLibI",
  1344. X            noicon, nokey, nomark, plain;
  1345. X        "-",
  1346. X            noicon, nokey, nomark, plain
  1347. X    }
  1348. X};
  1349. X
  1350. Xresource 'MENU' (129, "File", preload) {
  1351. X    129, textMenuProc,
  1352. X    allEnabled,
  1353. X    enabled, "File",
  1354. X    {
  1355. X        "Quit",
  1356. X            noicon, "Q", nomark, plain
  1357. X    }
  1358. X};
  1359. X
  1360. Xresource 'MENU' (130, "Edit", preload) {
  1361. X    130, textMenuProc,
  1362. X    allEnabled,
  1363. X    enabled, "Edit",
  1364. X     {
  1365. X        "Undo",
  1366. X            noicon, "Z", nomark, plain;
  1367. X        "-",
  1368. X            noicon, nokey, nomark, plain;
  1369. X        "Cut",
  1370. X            noicon, "X", nomark, plain;
  1371. X        "Copy",
  1372. X            noicon, "C", nomark, plain;
  1373. X        "Paste",
  1374. X            noicon, "V", nomark, plain;
  1375. X        "Clear",
  1376. X            noicon, nokey, nomark, plain
  1377. X    }
  1378. X};
  1379. X
  1380. Xresource 'SIZE' (-1) {
  1381. X    dontSaveScreen,
  1382. X    ignoreSuspendResumeEvents,
  1383. X    enableOptionSwitch,
  1384. X    canBackground,                /* sort-of :-) */
  1385. X    notMultiFinderAware,
  1386. X    300032,                        /* preferred size */
  1387. X    300032                        /* minimum size */
  1388. X};
  1389. END_OF_FILE
  1390. if test 4012 -ne `wc -c <'mac-glib.r'`; then
  1391.     echo shar: \"'mac-glib.r'\" unpacked with wrong size!
  1392. fi
  1393. # end of 'mac-glib.r'
  1394. fi
  1395. if test -f 'mac-mach.h' -a "${1}" != "-c" ; then 
  1396.   echo shar: Will not clobber existing file \"'mac-mach.h'\"
  1397. else
  1398. echo shar: Extracting \"'mac-mach.h'\" \(1520 characters\)
  1399. sed "s/^X//" >'mac-mach.h' <<'END_OF_FILE'
  1400. X/* $Id: mac-mach.h,v 1.6 89/05/06 17:13:32 lee Exp $
  1401. X * GLIB - a Generic LIBrarian and editor for synths
  1402. X *
  1403. X * Machine dependent stuff.
  1404. X *
  1405. X * Macintosh version
  1406. X * Steven Falco
  1407. X * $Log:    mac-mach.h,v $
  1408. X * Revision 1.6  89/05/06  17:13:32  lee
  1409. X * rel. to comp.sources.misc
  1410. X * 
  1411. X */
  1412. X
  1413. X#define macintosh
  1414. X/*
  1415. X * You must also chose a development system.
  1416. X * Currently, only MPW is supported.  See machdep.c and vt.c for more
  1417. X * information.  Note that INT16 must be defined as a 16-bit (or larger)
  1418. X * integer.  In MPW (my development system), a short is 16 bits.
  1419. X *
  1420. X * Steve Falco, moss!saf
  1421. X */
  1422. X#define MPW   
  1423. X/* any others? */
  1424. X
  1425. X/* overlay directives for compiler */
  1426. X#ifdef OVERLAY1
  1427. X#define __SEG__ over1
  1428. X#endif
  1429. X#ifdef OVERLAY2
  1430. X#define __SEG__ over2
  1431. X#endif
  1432. X
  1433. X#include <errors.h>
  1434. X#include <files.h>
  1435. X#include <types.h>
  1436. X#include <segload.h>
  1437. X#include <strings.h>
  1438. X#include <vt.h>
  1439. X#include <mdr.h>
  1440. X
  1441. X#define SIGNATURE 'GLIB'
  1442. X#define FSFCBLen  0x3f6
  1443. X
  1444. X#define INT16 short
  1445. X
  1446. XOSErr GetFinfo(), SetFinfo();
  1447. X
  1448. X/*
  1449. X * MPW doesn't set the file type.  This tends to be important so we
  1450. X * do it manually...
  1451. X */
  1452. X#define SET_TEXT(filename)                 \
  1453. X{                            \
  1454. X    FInfo myfinfo;                    \
  1455. X    switch(GetFInfo(filename, 0, &myfinfo)) {    \
  1456. X        case noErr:                \
  1457. X            myfinfo.fdType = 'TEXT';    \
  1458. X            myfinfo.fdCreator = SIGNATURE;    \
  1459. X            SetFInfo(filename, 0, &myfinfo);\
  1460. X            break;                \
  1461. X        default:                \
  1462. X            fprintf(stderr,"Cannot set file type for %s\n", filename); \
  1463. X            break;                \
  1464. X    }                        \
  1465. X}
  1466. X
  1467. X#define STATMIDI (midi_rxst==MIDI_NE?1:0)
  1468. X
  1469. X#define STATTXBF (midi_txst==MIDI_NE?1:0)
  1470. END_OF_FILE
  1471. if test 1520 -ne `wc -c <'mac-mach.h'`; then
  1472.     echo shar: \"'mac-mach.h'\" unpacked with wrong size!
  1473. fi
  1474. # end of 'mac-mach.h'
  1475. fi
  1476. if test -f 'mac-make.uu' -a "${1}" != "-c" ; then 
  1477.   echo shar: Will not clobber existing file \"'mac-make.uu'\"
  1478. else
  1479. echo shar: Extracting \"'mac-make.uu'\" \(1659 characters\)
  1480. sed "s/^X//" >'mac-make.uu' <<'END_OF_FILE'
  1481. Xbegin 644 mac-make
  1482. XM(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C
  1483. XM(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(PTC(%=!4DY)3D<@+2!42$E3($9)
  1484. XM3$4@0T].5$%)3E,@4U!%0TE!3"!#2$%204-415)3($]55%-)1$4@5$A%($Y/
  1485. XM4DU!3" C#2,@05-#24D@4D%.1T4N("!$3TXG5"!%1$E4($E4($580T505"!/
  1486. XM3B!!($U!0TE.5$]32"$A(2$@(" @(" @(" @(" @(",-(R,C(R,C(R,C(R,C
  1487. XM(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C
  1488. XM(R,C(R,C(R,C(R,C(PTC#2,@;F]T92 M('1H:7,@:7,@<')E='1Y(&1I9F9E
  1489. XM<F5N="!F<F]M('1H92!5;FEX(&UA:V5F:6QE+B @5&AE(&UA8R!C86XG= TC
  1490. XM(&AA;F1L92!T:&4@+F,O+F\@97%U871E<RX@($%L<V\L('!A=&@@;F%M97,@
  1491. XM:&%V92!A(&1I9F9E<F5N="!S>6YT87@L#2,@;&EB<F%R:65S(&%R92!I;B!A
  1492. XM(&1I9F9E<F5N="!P;&%C92P@86YD('-P96-I86P@8VAA<F%C=&5R<R!A<F4@
  1493. XM=7-E9"X-(R!F:6YA;&QY+"!T:&4@8V]M<&EL97(@:&%N9&QE<R Q(&9I;&4@
  1494. XM870@82!T:6UE(&%N9"!D;V5S;B=T(&%U=&]M871I8V%L;'D-(R!L:6YK(2 @
  1495. XM3V@@=V5L;"X@270@9&]E<R!W;W)K('1H;W5G:"XN+@TC#2,@4T%&(#<O,C8O
  1496. XM.#<-(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C
  1497. XM(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(PU,24)3(#T@>V-L:6)R87)I
  1498. XM97-]8W)U;G1I;64N;R"V#0D@("![8VQI8G)A<FEE<WUS=&1C;&EB+F\@M@T)
  1499. XM(" @>V-L:6)R87)I97-]8VEN=&5R9F%C92YO(+8-"2 @('MC;&EB<F%R:65S
  1500. XM?6-S86YE;&EB+F\@M@T)(" @>V-L:6)R87)I97-];&EB8RYO#0U34D,@/2!D
  1501. XM=S@P,# N8R!G;&EB+F,@9VQI8BYH(&=L:6(N<B"V#0D);&ES="YC(&UA8RUM
  1502. XM86-H+F,@;6%C+6UA8V@N:""V#0D);6%C+6UA:V4@='@X,7 N8R!T>#@Q>BYC
  1503. XM('EA;6%?8V]M+F,-#0U/0DH@/2!G;&EB+F,N;R!L:7-T+F,N;R!D=S@P,# N
  1504. XM8RYO(+8-"0ET>#@Q<"YC+F\@='@X,7HN8RYO(+8-"0EY86UA7V-O;2YC+F\@
  1505. XM;6%C:&1E<"YC+F\-"0D-9VQI8B#$Q"!G;&EB+G(-"7)E>B!G;&EB+G(@+6\@
  1506. XM9VQI8@T)#6=L:6(@Q,0@>T]"2GT@9VQI8BYR('M,24)3?0T);&EN:R![3T)*
  1507. XM?2![3$E"4WT@+6\@9VQI8@T-9VQI8BYS:&%R(,0@>U-20WT-"7-H87(@>U-2
  1508. X.0WT@/B!G;&EB+G-H87)I
  1509. X 
  1510. Xend
  1511. END_OF_FILE
  1512. if test 1659 -ne `wc -c <'mac-make.uu'`; then
  1513.     echo shar: \"'mac-make.uu'\" unpacked with wrong size!
  1514. fi
  1515. # end of 'mac-make.uu'
  1516. fi
  1517. if test -f 'mac-mdr.h' -a "${1}" != "-c" ; then 
  1518.   echo shar: Will not clobber existing file \"'mac-mdr.h'\"
  1519. else
  1520. echo shar: Extracting \"'mac-mdr.h'\" \(810 characters\)
  1521. sed "s/^X//" >'mac-mdr.h' <<'END_OF_FILE'
  1522. X/* $Id: mac-mdr.h,v 1.6 89/05/06 17:13:34 lee Exp $
  1523. X * mdr.h - header file for stuff that uses the midi driver
  1524. X *
  1525. X * Steven A. Falco  7/30/87
  1526. X * $Log:    mac-mdr.h,v $
  1527. X * Revision 1.6  89/05/06  17:13:34  lee
  1528. X * rel. to comp.sources.misc
  1529. X * 
  1530. X */
  1531. X
  1532. X#define MIDI_NE        0        /* queue has 1 or more bytes available */
  1533. X#define MIDI_EM        (-1)    /* queue is empty */
  1534. X
  1535. Xextern void midi_init();    /* set up hardware & software */
  1536. Xextern void midi_reset();    /* unset - very important to avoid crashes */
  1537. Xextern void midi_tx();        /* send a byte (but declare arg as a long) */
  1538. Xextern long midi_rx();        /* get a byte (returns -1 on "nothing available" */
  1539. Xextern char midi_txst;        /* transmit queue state (flags above) */
  1540. Xextern char midi_rxst;        /* receive queue state */
  1541. Xextern long midi_time;        /* relative time in mS (5 mS granularity) */
  1542. END_OF_FILE
  1543. if test 810 -ne `wc -c <'mac-mdr.h'`; then
  1544.     echo shar: \"'mac-mdr.h'\" unpacked with wrong size!
  1545. fi
  1546. # end of 'mac-mdr.h'
  1547. fi
  1548. if test -f 'mac-vt.h' -a "${1}" != "-c" ; then 
  1549.   echo shar: Will not clobber existing file \"'mac-vt.h'\"
  1550. else
  1551. echo shar: Extracting \"'mac-vt.h'\" \(2039 characters\)
  1552. sed "s/^X//" >'mac-vt.h' <<'END_OF_FILE'
  1553. X/* $Id: mac-vt.h,v 1.6 89/05/06 17:13:35 lee Exp $
  1554. X * vt.h - definitions for the vt100-like console device handler
  1555. X *
  1556. X * Steven A. Falco  4/30/87
  1557. X * $Log:    mac-vt.h,v $
  1558. X * Revision 1.6  89/05/06  17:13:35  lee
  1559. X * rel. to comp.sources.misc
  1560. X * 
  1561. X */
  1562. X
  1563. X#ifndef EOF
  1564. X#define EOF        -1
  1565. X#endif
  1566. X
  1567. X/* this structure defines one member of the _StdDevs array.  This is
  1568. X * similar to the Unix concept of bdevsw and cdevsw.
  1569. X */
  1570. Xtypedef struct {
  1571. X    int name;            /* 'CONS' for the console */
  1572. X    int (*l_access)();    /* NOT the same as open - can do mv or rm also */
  1573. X    int (*l_close)();    /* close */
  1574. X    int (*l_read)();    /* read */
  1575. X    int (*l_write)();    /* write */
  1576. X    int (*l_ioctl)();    /* ioctl */
  1577. X} DEVSW;
  1578. X
  1579. Xextern DEVSW _StdDevs[];
  1580. X
  1581. X/* this structure defines one member of the file table.  I believe
  1582. X * the table is dynamically allocated for 200 bytes at a time or
  1583. X * 10 entries.  But _lockedHandle may return words or something else.
  1584. X */
  1585. Xtypedef struct {
  1586. X    short flags;    /* high byte sometimes has fileno */
  1587. X    short errcode;    /* a MacOS error code */
  1588. X    DEVSW *handler;    /* a pointer to our _StdDevs array entry */
  1589. X    int z;            /* unknown */
  1590. X    int count;        /* read or write count desired. <-- --> */
  1591. X    char *buffer;    /* buffer pointer to use. <-- --> */
  1592. X} IOSTR;
  1593. X
  1594. X/* look up a file number in the file table and return a pointer to the
  1595. X * entry.  Pass in -1 to get a new entry.  NOTE - the ADDRESS of the
  1596. X * file number is passed - NOT the file number itself.  I wonder why?
  1597. X */
  1598. XIOSTR *_getIOPort();
  1599. X
  1600. X/* these are the low-level entry points to link the driver (handler)
  1601. X * into the system.  They require strange input arguments and always
  1602. X * return 0 on success.  Don't call them directly...
  1603. X */
  1604. Xextern    vt_faccess();
  1605. Xextern    vt_close();
  1606. Xextern    vt_read();
  1607. Xextern    vt_write();
  1608. Xextern    vt_ioctl();
  1609. X
  1610. X/* these are the ultra-low level calls that do all the work.  You can
  1611. X * call them directly to avoid all the IntEnv overhead.  See vt.c for
  1612. X * the input and output specifications.
  1613. X */
  1614. Xextern    vt_open();
  1615. Xextern    vt_getch();
  1616. Xextern    vt_peekch();
  1617. Xextern    vt_putch();
  1618. Xextern    vt_cooked();
  1619. Xextern    vt_raw();
  1620. END_OF_FILE
  1621. if test 2039 -ne `wc -c <'mac-vt.h'`; then
  1622.     echo shar: \"'mac-vt.h'\" unpacked with wrong size!
  1623. fi
  1624. # end of 'mac-vt.h'
  1625. fi
  1626. if test -f 'makevish.l' -a "${1}" != "-c" ; then 
  1627.   echo shar: Will not clobber existing file \"'makevish.l'\"
  1628. else
  1629. echo shar: Extracting \"'makevish.l'\" \(345 characters\)
  1630. sed "s/^X//" >'makevish.l' <<'END_OF_FILE'
  1631. X%{
  1632. X/* $Id: makevish.l,v 1.6 89/05/06 17:13:36 lee Exp $
  1633. X * Greg Lee
  1634. X * $Log:    makevish.l,v $
  1635. X * Revision 1.6  89/05/06  17:13:36  lee
  1636. X * rel. to comp.sources.misc
  1637. X * 
  1638. X */
  1639. X    int i;
  1640. X%}
  1641. X
  1642. X%%
  1643. X
  1644. X^"char *"[ \t\n]*"vis"[0-9A-Za-z_]+[ ]*"("  {
  1645. X    i = 6;
  1646. X    while (yytext[i++] != 's') ;
  1647. X    printf("char *vis%s);\n", yytext+i);
  1648. X};
  1649. X
  1650. X.    ;
  1651. X\n    ;
  1652. X
  1653. X%%
  1654. Xmain() { yylex(); }
  1655. END_OF_FILE
  1656. if test 345 -ne `wc -c <'makevish.l'`; then
  1657.     echo shar: \"'makevish.l'\" unpacked with wrong size!
  1658. fi
  1659. # end of 'makevish.l'
  1660. fi
  1661. if test -f 'patchlevel.h' -a "${1}" != "-c" ; then 
  1662.   echo shar: Will not clobber existing file \"'patchlevel.h'\"
  1663. else
  1664. echo shar: Extracting \"'patchlevel.h'\" \(21 characters\)
  1665. sed "s/^X//" >'patchlevel.h' <<'END_OF_FILE'
  1666. X#define PATCHLEVEL 6
  1667. END_OF_FILE
  1668. if test 21 -ne `wc -c <'patchlevel.h'`; then
  1669.     echo shar: \"'patchlevel.h'\" unpacked with wrong size!
  1670. fi
  1671. # end of 'patchlevel.h'
  1672. fi
  1673. if test -f 'pc-readme' -a "${1}" != "-c" ; then 
  1674.   echo shar: Will not clobber existing file \"'pc-readme'\"
  1675. else
  1676. echo shar: Extracting \"'pc-readme'\" \(225 characters\)
  1677. sed "s/^X//" >'pc-readme' <<'END_OF_FILE'
  1678. X
  1679. XThe DOS support for glib requires the Turbo C compiled and the
  1680. XMicrosoft Assembler (specifically, I have Turbo C 2.0 and MASM 4.0).
  1681. XCopy pc-mach.h to machdep.h, pc-mach.c to machdep.c, pc-tcc.mak to
  1682. Xmakefile, and type make.
  1683. END_OF_FILE
  1684. if test 225 -ne `wc -c <'pc-readme'`; then
  1685.     echo shar: \"'pc-readme'\" unpacked with wrong size!
  1686. fi
  1687. # end of 'pc-readme'
  1688. fi
  1689. if test -f 'pc-tcc.mak' -a "${1}" != "-c" ; then 
  1690.   echo shar: Will not clobber existing file \"'pc-tcc.mak'\"
  1691. else
  1692. echo shar: Extracting \"'pc-tcc.mak'\" \(2436 characters\)
  1693. sed "s/^X//" >'pc-tcc.mak' <<'END_OF_FILE'
  1694. X# $Id: pc-tcc.mak,v 1.6 89/05/06 17:13:41 lee Exp $
  1695. X#
  1696. X# Glib, Turbo C version for Kawai K1, etc.
  1697. X# Scott Snyder
  1698. X# $Log:    pc-tcc.mak,v $
  1699. X# Revision 1.6  89/05/06  17:13:41  lee
  1700. X# rel. to comp.sources.misc
  1701. X# 
  1702. X# added defs for CZ1
  1703. X# 
  1704. X# adapted from Tim Thompson's program
  1705. X# with modifications by Michael Kesti and Greg Lee
  1706. X
  1707. X# works with TC v2.0
  1708. X
  1709. XMODEL=l
  1710. X
  1711. XLEX = flex
  1712. XLEXLIB =
  1713. X# to use lex instead of flex:
  1714. X#LEX = lex
  1715. X#LEXLIB = -ll
  1716. X
  1717. X# defines for CFLAGS (below):
  1718. X#    BSD for fopen with mode 'r'/'w' instead of 'rb'/'wb'
  1719. X#    ULTRIX enables curses no()/nonl() fix
  1720. X#    ARROW for use of arrow keys (probably only bsd)
  1721. X# and uncomment one set of the following for supported synths:
  1722. X
  1723. X# Remove '#' from next 5 lines for Roland D-10:
  1724. X#SYNTHS = -DROLANDD10
  1725. X#SYNTHOBJ = vis.obj d10pat.obj d10tim.obj d10ton.obj d10wfg.obj d10tvf.obj \
  1726. X#       d10tva.obj d10rsu.obj d10urp.obj d10tra.obj
  1727. X#SYNTHC = d10pat.c d10tim.c d10wfg.c d10tvf.c d10tva.c \
  1728. X#    d10rsu.c d10urp.c d10tra.c # vis.h
  1729. X
  1730. X# Remove '#' from next 4 lines for various Yamaha, K5, etc.:
  1731. X#SYNTHS = -DTX81Z -DTX81ZPERF -DDX100 -DDW8000 -DKAWAIK5 -DDEP5
  1732. X#SYNTHOBJ = dx100.obj tx81z.obj tx81p.obj dw8000.obj yama_com.obj
  1733. X#       k5single.obj k5multi.obj dep5.obj
  1734. X#SYNTHC = dx100.c tx81z.c tx81p.c dw8000.c k5single.c k5multi.c dep5.c
  1735. X
  1736. X# Remove '#' from next group of lines for Yamaha DX7, DX7s:
  1737. XSYNTHS = -DDX7 -DDX7S
  1738. XSYNTHOBJ = dx7.obj dx7s.obj
  1739. XSYNTHC = dx7.c dx7s.c
  1740. X
  1741. X# Remove '#' from next 3 lines for Kawai K1:
  1742. X#SYNTHS = -DKAWAIK1
  1743. X#SYNTHOBJ = k1vis.o k1multi.o k1single.o
  1744. X#SYNTHC = k1multi.c k1single.c # k1vis.h
  1745. X
  1746. X# Remove '#' from next 3 lines for CZ1:
  1747. X#SYNTHS = -DCZ1
  1748. X#SYNTHOBJ = cz1.o
  1749. X#SYNTHC = cz1.c
  1750. X
  1751. X#
  1752. X# Define SSS to enable speed-up code in glib.c
  1753. X#
  1754. X
  1755. XCFLAGS = -N -m$(MODEL) -DSSS $(SYNTHS)
  1756. X
  1757. XGLIBOBJ = glib.obj machdep.obj list.obj pc-ints.obj
  1758. X
  1759. XOBJ = $(GLIBOBJ) $(SYNTHOBJ)
  1760. X
  1761. XH = glib.h machdep.h vis.h
  1762. X
  1763. X.mnu.c:
  1764. X    menutoc $*.mnu $*.c
  1765. X
  1766. X.c.obj:
  1767. X    tcc -c $(CFLAGS) $.
  1768. X
  1769. X.c.exe:
  1770. X    tcc -N $.
  1771. X
  1772. Xglib.exe : menutoc.exe $(SYNTHC) $(OBJ)
  1773. X    tcc -m$(MODEL) $(OBJ)
  1774. X
  1775. Xmachdep.c: pc-mach.c
  1776. X    copy pc-mach.c machdep.c
  1777. X
  1778. Xmachdep.h: pc-mach.h
  1779. X    copy pc-mach.h machdep.h
  1780. X
  1781. Xmachdep.obj: machdep.c $(H)
  1782. X
  1783. Xglib.obj: glib.c $(H)
  1784. X
  1785. Xlist.obj: list.c $(H)
  1786. X
  1787. Xdx100.obj: dx100.c $(H)
  1788. X
  1789. Xtx81z.obj: tx81z.c $(H)
  1790. X
  1791. Xtx81p.obj: tx81p.c $(H)
  1792. X
  1793. Xdw8000.obj: dw8000.c $(H)
  1794. X
  1795. Xyama_com.obj: yama_com.c $(H)
  1796. X
  1797. Xdx7.obj: dx7.c $(H)
  1798. X
  1799. Xdx7s.obj: dx7s.c $(H)
  1800. X
  1801. Xk5single.obj: k5single.c $(H)
  1802. X
  1803. Xk5multi.obj: k5multi.c $(H)
  1804. X
  1805. Xpc-ints.obj: pc-ints.asm
  1806. X    masm /mx pc-ints;
  1807. END_OF_FILE
  1808. if test 2436 -ne `wc -c <'pc-tcc.mak'`; then
  1809.     echo shar: \"'pc-tcc.mak'\" unpacked with wrong size!
  1810. fi
  1811. # end of 'pc-tcc.mak'
  1812. fi
  1813. if test -f 'st-mach.h' -a "${1}" != "-c" ; then 
  1814.   echo shar: Will not clobber existing file \"'st-mach.h'\"
  1815. else
  1816. echo shar: Extracting \"'st-mach.h'\" \(414 characters\)
  1817. sed "s/^X//" >'st-mach.h' <<'END_OF_FILE'
  1818. X/*
  1819. X * GLIB - a Generic LIBrarian and editor for synths
  1820. X *
  1821. X * Machine dependent stuff.
  1822. X *
  1823. X * Atari ST version
  1824. X */
  1825. X
  1826. X#define INT16 int
  1827. X
  1828. X#include <osbind.h>
  1829. X#include <gemdefs.h>
  1830. X#include <obdefs.h>
  1831. X
  1832. X#define CONSOLE 2
  1833. X#define MIDI 3
  1834. X
  1835. X#ifdef OVERLAY1
  1836. Xoverlay "over1"
  1837. X#endif
  1838. X
  1839. X#ifdef OVERLAY2
  1840. Xoverlay "over2"
  1841. X#endif
  1842. X
  1843. X#define OPENBINFILE(f,name,mode) f=fopen(name,mode[0]=='r'?"br":"bw")
  1844. X
  1845. X#define STATMIDI (Bconstat(MIDI))
  1846. END_OF_FILE
  1847. if test 414 -ne `wc -c <'st-mach.h'`; then
  1848.     echo shar: \"'st-mach.h'\" unpacked with wrong size!
  1849. fi
  1850. # end of 'st-mach.h'
  1851. fi
  1852. if test -f 'unix-mach.h' -a "${1}" != "-c" ; then 
  1853.   echo shar: Will not clobber existing file \"'unix-mach.h'\"
  1854. else
  1855. echo shar: Extracting \"'unix-mach.h'\" \(338 characters\)
  1856. sed "s/^X//" >'unix-mach.h' <<'END_OF_FILE'
  1857. X/* $Id: unix-mach.h,v 1.6 89/05/06 17:13:46 lee Exp $
  1858. X * GLIB - a Generic LIBrarian and editor for synths
  1859. X *
  1860. X * Machine dependent stuff.
  1861. X *
  1862. X * Unix version
  1863. X * Tim Thompson
  1864. X * $Log:    unix-mach.h,v $
  1865. X * Revision 1.6  89/05/06  17:13:46  lee
  1866. X * rel. to comp.sources.misc
  1867. X * 
  1868. X */
  1869. X
  1870. X#define INT16 int
  1871. X
  1872. X#define STATMIDI (statmidi())
  1873. X#define UNIX
  1874. END_OF_FILE
  1875. if test 338 -ne `wc -c <'unix-mach.h'`; then
  1876.     echo shar: \"'unix-mach.h'\" unpacked with wrong size!
  1877. fi
  1878. # end of 'unix-mach.h'
  1879. fi
  1880. if test -f 'vis.h' -a "${1}" != "-c" ; then 
  1881.   echo shar: Will not clobber existing file \"'vis.h'\"
  1882. else
  1883. echo shar: Extracting \"'vis.h'\" \(764 characters\)
  1884. sed "s/^X//" >'vis.h' <<'END_OF_FILE'
  1885. X/* $Id: vis.h,v 1.6 89/05/06 17:13:47 lee Exp $
  1886. X * Revision 1.5  89/04/25  15:54:39  Michael_Kesti
  1887. X * $Log:    vis.h,v $
  1888. X * Revision 1.6  89/05/06  17:13:47  lee
  1889. X * rel. to comp.sources.misc
  1890. X * 
  1891. X */
  1892. Xchar *vispan();
  1893. Xchar *visreverbtype();
  1894. Xchar *visreverbtime();
  1895. Xchar *visreverblevel();
  1896. Xchar *vispatchlevel();
  1897. Xchar *viskeymode();
  1898. Xchar *vissplit();
  1899. Xchar *vistonegroup();
  1900. Xchar *visrtone();
  1901. Xchar *vistonenum();
  1902. Xchar *viskeyshift();
  1903. Xchar *visfinetune();
  1904. Xchar *visbendrange();
  1905. Xchar *visassignmode();
  1906. Xchar *vistonebal();
  1907. Xchar *visstruct();
  1908. Xchar *vispmute();
  1909. Xchar *visenvmode();
  1910. Xchar *viscpitch();
  1911. Xchar *vispkeyfol();
  1912. Xchar *vistkeyfol();
  1913. Xchar *viswavebank();
  1914. Xchar *vispcmnum();
  1915. Xchar *visvelsens();
  1916. Xchar *visenvlev();
  1917. Xchar *visbiaslev();
  1918. Xchar *visbiaspd();
  1919. Xchar *vistvablev();
  1920. END_OF_FILE
  1921. if test 764 -ne `wc -c <'vis.h'`; then
  1922.     echo shar: \"'vis.h'\" unpacked with wrong size!
  1923. fi
  1924. # end of 'vis.h'
  1925. fi
  1926. echo shar: End of archive 1 \(of 15\).
  1927. cp /dev/null ark1isdone
  1928. MISSING=""
  1929. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ; do
  1930.     if test ! -f ark${I}isdone ; then
  1931.     MISSING="${MISSING} ${I}"
  1932.     fi
  1933. done
  1934. if test "${MISSING}" = "" ; then
  1935.     echo You have unpacked all 15 archives.
  1936.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1937. else
  1938.     echo You still need to unpack the following archives:
  1939.     echo "        " ${MISSING}
  1940. fi
  1941. ##  End of shell archive.
  1942. exit 0
  1943.  
  1944.